home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t4.d64 / bach inventn#8.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  140 lines
  1. 100 REM PROGRAMMED BY BOB YEWCHUK               MISSISSAUGA ONTARIO L5G 3Z1
  2. 120 REM AS OF AUGUST 8, 1983
  3. 140 REM INVENTION # 8 IN F -- BY                J.S. BACH
  4. 160 REM
  5. 180 GOSUB10000
  6. 200 POKE53280,11:POKE53281,11:PRINTCHR$(8):PRINTCHR$(14):PRINTCHR$(5)
  7. 220 PRINT"[147][211]PEED:    1=[198]ASTEST"
  8. 225 PRINT"   300=[211]LOWEST":INPUTT
  9. 230 IFT=0THENT=100
  10. 240 PRINT"[147][201]NVENTION # 8 IN [198]
  11. 260 [153]" BY MID$. (null). PEEKACH"
  12. 290 [143] INITIALIZE VARIABLES
  13. 300 A1[178]54277:A2[178]54284:A3[178]54291:[143]          ATTACK/DECAY
  14. 310 S1[178]54278:S2[178]54285:S3[178]54292:[143]          SUSTAIN/RELEASE
  15. 320 W1[178]54276:W2[178]54283:W3[178]54290:[143]          WAVWFORMS
  16. 330 H1[178]54273:H2[178]54280:H3[178]54287:[143]          HIGH BYTE OF NOTE
  17. 340 L1[178]54272:L2[178]54279:L3[178]54286:[143]          LOW BYTE OF NOTE
  18. 350 X1[178]54275:X2[178]54282:X3[178]54289:[143]          HIGH NYBBLE OF PULSE WIDTH
  19. 360 Y1[178]54274:Y2[178]54281:Y3[178]54288:[143]          LOW BYTE OF PULSE WIDTH
  20. 370 VC[178]54296:[143] VOLUME CONTROL
  21. 400 [143] START UP THE SYSTEM
  22. 410 [151]A1,74:[151]A2,74:[151]A3,74:[151]S1,168:[151]S2,168:[151]S3,138
  23. 430 [151]W1,65:[151]W2,65:[151]W3,65
  24. 440 [151]X1,27:[151]X2,72:[151]X3,145:[151]Y1,4:[151]Y2,3:[151]Y3,7
  25. 460 [151]VC,15
  26. 500 [143] THE MAIN ROUTINE
  27. 520 [135]A,B,C,D
  28. 540 [139]A[178]999[167]700
  29. 560 [151]H1,A:[151]L1,B:[151]H2,C:[151]L2,D
  30. 580 [129]W[178]1[164]T:[130]
  31. 600 [137]520
  32. 700 [135]A,B,C,D,E,F
  33. 720 [151]H1,A:[151]L1,B:[151]H2,C:[151]L2,D:[151]H3,E:[151]L3,F
  34. 740 [129]W[178]1[164]8[172]T:[130]
  35. 760 [151]H1,0:[151]L1,0:[151]H2,0:[151]L2,0:[151]H3,0:[151]L3,0
  36. 900 [141]10000:[153][199](9):[128]
  37. 990 [143] DATA STARTS HERE
  38. 1000 [131] 0,0,0,0,0,0,0,0,22,96,0,0,22,96,0,0,28,49,0,0,28,49,0,0
  39. 1010 [131]22,96,0,0,22,96,0,0,33,135,0,0,33,135,0,0,22,96,0,0,22,96,0,0:[143] BAR 1
  40. 1020 [131]44,193,0,0,44,193,0,0,42,62,11,48,37,162,11,48
  41. 1030 [131]33,135,14,24,37,162,14,24,33,135,11,48,29,223,11,48
  42. 1040 [131]28,49,16,195,29,223,16,195,28,49,11,48,25,30,11,48:[143] BAR 2
  43. 1050 [131]22,96,22,96,22,96,22,96,28,49,21,31,28,49,18,209
  44. 1060 [131]33,135,16,195,33,135,18,209,28,49,16,195,28,49,14,239
  45. 1070 [131]44,193,14,24,44,193,14,239,33,135,14,24,33,135,12,143:[143] BAR 3
  46. 1080 [131]56,99,11,48,67,15,11,48,59,190,14,24,67,15,14,24
  47. 1090 [131]56,99,16,195,67,15,16,195,59,190,14,24,67,15,14,24
  48. 1100 [131]56,99,22,96,67,15,22,96,59,190,16,195,67,15,16,195:[143] BAR 4
  49. 1110 [131]44,193,28,49,56,99,33,135,50,60,29,223,56,99,33,135
  50. 1120 [131]44,193,28,49,56,99,33,135,50,60,29,223,56,99,33,135
  51. 1130 [131]44,193,28,49,56,99,33,135,50,60,29,223,56,99,33,135:[143] BAR 5
  52. 1140 [131]37,162,22,96,44,193,28,49,42,62,25,30,44,193,28,49
  53. 1150 [131]37,162,22,96,44,193,28,49,42,62,25,30,44,193,28,49
  54. 1160 [131]37,162,22,96,44,193,28,49,42,62,25,30,44,193,28,49:[143] BAR 6
  55. 1170 [131]31,165,18,209,31,165,22,96,25,30,21,31,25,30,22,96
  56. 1180 [131]37,162,18,209,37,162,22,96,31,165,21,31,31,165,22,96
  57. 1190 [131]44,193,18,209,44,193,22,96,37,162,21,31,37,162,22,96:[143] BAR 7
  58. 1200 [131]50,60,15,210,56,99,15,210,50,60,12,143,44,193,12,143
  59. 1210 [131]42,62,16,195,44,193,16,195,42,62,12,143,37,162,12,143
  60. 1220 [131]33,135,21,31,37,162,21,31,33,135,16,195,29,223,16,195:[143] BAR 8
  61. 1230 [131]28,49,22,96,28,49,25,30,37,162,22,96,33,135,21,31
  62. 1240 [131]31,165,18,209,33,135,21,31,31,165,18,209,28,49,16,195
  63. 1250 [131]25,30,15,210,28,49,16,195,25,30,15,210,22,96,14,24:[143] BAR 9
  64. 1260 [131]21,31,12,143,22,96,12,143,21,31,16,195,18,209,15,210
  65. 1270 [131]16,195,14,24,16,195,15,210,33,135,14,24,31,165,12,143
  66. 1280 [131]33,135,11,48,33,135,12,143,21,31,11,48,21,31,10,143:[143] BAR 10
  67. 1290 [131]22,96,9,104,22,96,10,143,33,135,9,104,33,135,8,97
  68. 1300 [131]21,31,12,143,21,31,11,48,33,135,10,143,33,135,11,48
  69. 1310 [131]18,209,12,143,18,209,12,143,31,165,6,71,31,165,6,71:[143] BAR 11
  70. 1320 [131]33,135,0,0,33,135,0,0,8,97,0,0,8,97,0,0
  71. 1330 [131]10,143,0,0,10,143,0,0,8,97,0,0,8,97,0,0
  72. 1340 [131]12,143,0,0,12,143,0,0,8,97,0,0,8,97,0,0:[143] BAR 12
  73. 1350 [131]0,0,16,195,0,0,16,195,33,135,15,210,33,135,14,24
  74. 1360 [131]42,62,12,143,42,62,14,24,33,135,12,143,33,135,11,48
  75. 1370 [131]50,60,10,143,50,60,11,48,33,135,10,143,33,135,9,104:[143] BAR 13
  76. 1380 [131]67,15,8,97,67,15,8,97,63,75,10,143,56,99,10,143
  77. 1390 [131]50,60,12,143,56,99,12,143,50,60,10,143,44,193,10,143
  78. 1400 [131]42,62,16,195,44,193,16,195,42,62,12,143,37,162,12,143:[143] BAR 14
  79. 1410 [131]33,135,19,239,29,223,19,239,33,135,11,218,56,99,11,218
  80. 1420 [131]33,135,19,239,56,99,19,239,29,223,11,218,56,99,11,218
  81. 1430 [131]33,135,19,239,56,99,19,239,28,49,11,218,56,99,11,218:[143] BAR 15
  82. 1440 [131]29,223,12,143,29,223,12,143,25,30,11,48,25,30,9,247
  83. 1450 [131]29,223,9,104,29,223,9,247,25,30,9,104,25,30,8,97
  84. 1460 [131]37,162,7,119,37,162,8,97,25,30,7,119,25,30,7,12:[143] BAR 16
  85. 1470 [131]50,60,6,71,50,60,6,71,44,193,12,143,39,223,12,143
  86. 1480 [131]37,162,14,239,39,223,14,239,37,162,12,143,33,135,12,143
  87. 1490 [131]29,223,18,209,33,135,18,209,29,223,12,143,28,49,12,143:[143] BAR 17
  88. 1500 [131]25,30,25,30,25,30,25,30,29,223,22,96,29,223,19,239
  89. 1510 [131]37,162,18,209,37,162,19,239,29,223,18,209,29,223,16,195
  90. 1520 [131]50,60,14,239,50,60,16,195,37,162,14,239,37,162,14,24:[143] BAR 18
  91. 1530 [131]59,190,12,143,59,190,11,48,35,134,12,143,35,143,21,31
  92. 1540 [131]59,190,12,143,59,190,21,31,35,134,11,48,35,134,21,31
  93. 1550 [131]59,190,12,143,59,190,21,31,35,134,10,143,35,134,21,31:[143] BAR 19
  94. 1560 [131]37,162,11,48,37,162,10,143,28,49,11,48,28,49,18,209
  95. 1570 [131]44,193,11,48,44,193,18,209,37,162,10,143,37,162,18,209
  96. 1580 [131]56,99,11,48,56,99,18,209,44,193,9,104,44,193,18,209:[143] BAR 20
  97. 1590 [131]50,60,14,239,44,193,14,239,50,60,12,143,59,190,12,143
  98. 1600 [131]33,135,10,143,59,190,10,143,37,162,12,143,59,190,12,143
  99. 1610 [131]42,62,8,97,59,190,8,97,33,135,10,143,59,190,10,143:[143] BAR 21
  100. 1620 [131]44,193,14,24,42,62,14,24,44,193,11,48,56,99,11,48
  101. 1630 [131]31,165,9,104,56,99,9,104,35,134,11,48,56,99,11,48
  102. 1640 [131]37,162,7,223,56,99,7,223,31,165,9,104,56,99,9,104:[143] BAR 22
  103. 1650 [131]42,62,12,143,37,162,12,143,42,62,10,143,50,60,10,143
  104. 1660 [131]28,49,8,225,50,60,8,225,31,165,10,143,50,60,10,143
  105. 1670 [131]35,134,7,12,50,60,7,12,28,49,8,225,50,60,8,225:[143] BAR 23
  106. 1680 [131]44,193,4,180,44,193,9,104,37,162,8,97,37,162,9,104
  107. 1690 [131]29,223,6,71,29,223,9,104,37,162,7,12,37,162,9,104
  108. 1700 [131]25,30,7,119,25,30,9,104,44,193,6,71,44,193,9,104:[143] BAR 24
  109. 1710 [131]42,62,4,48,42,62,8,97,33,135,7,119,33,135,8,97
  110. 1720 [131]28,49,5,152,28,49,8,97,33,135,6,71,33,135,8,97
  111. 1730 [131]22,96,7,12,22,96,8,97,39,223,6,71,39,223,8,97:[143] BAR 25
  112. 1740 [131]37,162,7,119,44,193,7,119,39,223,9,104,44,193,9,104
  113. 1750 [131]37,162,11,48,44,193,11,48,39,223,9,104,44,193,9,104
  114. 1760 [131]37,162,14,239,44,193,14,239,39,223,11,48,44,193,11,48:[143] BAR 26
  115. 1770 [131]29,223,18,209,37,162,22,96,33,135,19,239,37,162,22,96
  116. 1780 [131]29,223,18,209,37,162,22,96,33,135,19,239,37,162,22,96
  117. 1790 [131]29,223,18,209,37,162,22,96,33,135,19,239,37,162,22,96:[143] BAR 27
  118. 1800 [131]25,30,14,239,29,223,18,209,28,49,16,195,29,223,18,209
  119. 1810 [131]25,30,14,239,29,223,18,209,28,49,16,195,29,223,18,209
  120. 1820 [131]25,30,14,239,29,223,18,209,28,49,16,195,29,223,18,209:[143] BAR 28
  121. 1830 [131]21,31,12,143,21,31,14,239,16,195,14,24,16,195,14,239
  122. 1840 [131]25,30,12,143,25,30,14,239,21,31,14,24,21,31,14,239
  123. 1850 [131]29,223,12,143,29,223,14,239,25,30,14,24,25,30,14,239:[143] BAR 29
  124. 1860 [131]33,135,10,143,37,162,10,143,33,135,8,97,29,223,8,97
  125. 1870 [131]28,49,11,48,29,223,11,48,28,49,8,97,25,30,8,97
  126. 1880 [131]22,96,14,24,25,30,14,24,22,96,11,48,19,239,11,48:[143] BAR 30
  127. 1890 [131]18,209,14,239,18,209,16,195,25,30,14,239,22,96,14,24
  128. 1900 [131]21,31,12,143,22,96,14,24,21,31,12,143,18,209,11,48
  129. 1910 [131]16,195,10,143,18,209,11,48,16,195,10,143,14,239,9,104:[143] BAR 31
  130. 1920 [131]14,24,8,97,14,239,8,97,14,24,11,48,12,143,10,143
  131. 1930 [131]11,48,9,104,11,48,10,143,22,96,9,104,21,31,8,97
  132. 1940 [131]22,96,7,119,22,96,8,97,14,24,7,119,14,24,7,12:[143] BAR 32
  133. 1950 [131]14,239,6,71,14,239,7,12,22,96,6,71,22,96,5,152
  134. 1960 [131]14,24,8,97,14,24,7,119,22,96,7,12,22,96,7,119
  135. 1970 [131]12,143,8,97,12,143,8,97,21,31,4,48,21,31,4,48:[143] BAR 33
  136. 1980 [131]999,999,999,999
  137. 2000 [143] LAST CHORD --- BAR 34
  138. 2010 [131] 22,96,14,24,5,152
  139. 10000 [129]Q[178]54270[164]54300:[151]Q,0:[130]:[142]
  140.